HTBasic 9.3

home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / DLL_Toolkit / Source / HTBImage / test_prog / test.bas < prev
Unknown | 2005-03-02 | 2.3 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`65%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 09 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 11 31 30 20 44 4c 4c | 20 55 4e 4c 4f 41 44 20 |..10 DLL| UNLOAD |
|00000110| 41 4c 4c 00 00 16 32 30 | 20 44 4c 4c 20 4c 4f 41 |ALL...20| DLL LOA|
|00000120| 44 20 22 48 54 42 49 6d | 61 67 65 22 00 25 33 30 |D "HTBIm|age".%30|
|00000130| 20 44 4c 4c 20 47 45 54 | 20 22 73 68 6f 72 74 20 | DLL GET| "short |
|00000140| 48 54 42 49 6d 61 67 65 | 3a 4c 6f 61 64 69 6d 61 |HTBImage|:Loadima|
|00000150| 67 65 22 00 00 1f 34 30 | 20 44 4c 4c 20 47 45 54 |ge"...40| DLL GET|
|00000160| 20 22 76 6f 69 64 20 48 | 54 42 49 6d 61 67 65 3a | "void H|TBImage:|
|00000170| 53 68 6f 77 22 00 00 21 | 35 30 20 44 4c 4c 20 47 |Show"..!|50 DLL G|
|00000180| 45 54 20 22 76 6f 69 64 | 20 48 54 42 49 6d 61 67 |ET "void| HTBImag|
|00000190| 65 3a 4e 6f 73 68 6f 77 | 22 00 00 27 35 31 20 44 |e:Noshow|"..'51 D|
|000001a0| 4c 4c 20 47 45 54 20 22 | 76 6f 69 64 20 48 54 42 |LL GET "|void HTB|
|000001b0| 49 6d 61 67 65 3a 43 72 | 65 61 74 65 72 65 67 69 |Image:Cr|eateregi|
|000001c0| 6f 6e 22 00 00 23 35 32 | 20 44 4c 4c 20 47 45 54 |on"..#52| DLL GET|
|000001d0| 20 22 76 6f 69 64 20 48 | 54 42 49 6d 61 67 65 3a | "void H|TBImage:|
|000001e0| 53 68 75 74 64 6f 77 6e | 22 00 00 09 36 30 20 57 |Shutdown|"...60 W|
|000001f0| 41 49 54 20 31 00 00 12 | 36 31 20 21 7e 21 00 00 |AIT 1...|61 !~!..|
|00000200| 31 00 00 22 00 6f 00 64 | 00 48 00 2f 36 32 20 49 |1..".o.d|.H./62 I|
|00000210| 4e 54 45 47 45 52 20 49 | 6d 61 67 65 31 20 20 20 |NTEGER I|mage1   |
|00000220| 20 21 20 75 73 65 64 20 | 74 6f 20 68 6f 6c 64 20 | ! used |to hold |
|00000230| 61 6e 20 69 6d 61 67 65 | 20 49 44 00 00 11 36 33 |an image| ID...63|
|00000240| 20 49 4e 54 45 47 45 52 | 20 49 6d 61 67 65 32 00 | INTEGER| Image2.|
|00000250| 00 11 36 34 20 49 4e 54 | 45 47 45 52 20 49 6d 61 |..64 INT|EGER Ima|
|00000260| 67 65 33 00 00 11 36 35 | 20 49 4e 54 45 47 45 52 |ge3...65| INTEGER|
|00000270| 20 49 6d 61 67 65 34 00 | 00 0c 36 36 20 49 4e 54 | Image4.|..66 INT|
|00000280| 45 47 45 52 20 58 00 0c | 36 37 20 49 4e 54 45 47 |EGER X..|67 INTEG|
|00000290| 45 52 20 59 00 14 36 38 | 20 21 7e 21 00 47 00 52 |ER Y..68| !~!.G.R|
|000002a0| 00 59 00 61 00 65 00 00 | 00 20 00 07 36 39 20 58 |.Y.a.e..|. ..69 X|
|000002b0| 3d 31 30 00 00 07 37 30 | 20 59 3d 31 30 00 00 14 |=10...70| Y=10...|
|000002c0| 37 31 20 21 7e 21 00 00 | 00 52 00 59 00 61 00 65 |71 !~!..|.R.Y.a.e|
|000002d0| 00 00 00 20 00 34 37 32 | 20 21 20 4c 6f 61 64 20 |... .472| ! Load |
|000002e0| 74 68 65 20 62 69 74 6d | 61 70 20 69 6d 61 67 65 |the bitm|ap image|
|000002f0| 73 20 61 6e 64 20 67 65 | 74 20 74 68 69 65 72 20 |s and ge|t thier |
|00000300| 49 44 20 6e 75 6d 62 65 | 72 73 00 23 38 30 20 49 |ID numbe|rs.#80 I|
|00000310| 6d 61 67 65 31 3d 46 4e | 4c 6f 61 64 69 6d 61 67 |mage1=FN|Loadimag|
|00000320| 65 28 22 73 70 68 65 72 | 65 2e 62 6d 70 22 29 00 |e("spher|e.bmp").|
|00000330| 00 22 38 31 20 49 6d 61 | 67 65 32 3d 46 4e 4c 6f |."81 Ima|ge2=FNLo|
|00000340| 61 64 69 6d 61 67 65 28 | 22 61 72 72 6f 77 2e 62 |adimage(|"arrow.b|
|00000350| 6d 70 22 29 00 21 38 32 | 20 49 6d 61 67 65 33 3d |mp").!82| Image3=|
|00000360| 46 4e 4c 6f 61 64 69 6d | 61 67 65 28 22 45 78 69 |FNLoadim|age("Exi|
|00000370| 74 2e 62 6d 70 22 29 00 | 00 23 38 33 20 49 6d 61 |t.bmp").|.#83 Ima|
|00000380| 67 65 34 3d 46 4e 4c 6f | 61 64 69 6d 61 67 65 28 |ge4=FNLo|adimage(|
|00000390| 22 73 70 68 65 72 65 2e | 62 6d 70 22 29 00 00 14 |"sphere.|bmp")...|
|000003a0| 38 34 20 21 7e 21 00 65 | 00 3d 00 4e 00 6f 00 64 |84 !~!.e|.=.N.o.d|
|000003b0| 00 6d 00 67 00 1d 38 35 | 20 21 20 73 65 74 75 70 |.m.g..85| ! setup|
|000003c0| 20 6f 6e 20 73 69 67 6e | 61 6c 20 68 61 6e 64 6c | on sign|al handl|
|000003d0| 65 72 73 00 00 1d 38 36 | 20 4f 4e 20 53 49 47 4e |ers...86| ON SIGN|
|000003e0| 41 4c 20 31 20 47 4f 53 | 55 42 20 45 78 69 74 70 |AL 1 GOS|UB Exitp|
|000003f0| 72 6f 67 00 00 1e 38 37 | 20 4f 4e 20 53 49 47 4e |rog...87| ON SIGN|
|00000400| 41 4c 20 32 20 47 4f 53 | 55 42 20 50 6c 61 79 32 |AL 2 GOS|UB Play2|
|00000410| 62 65 65 70 00 14 38 39 | 20 21 7e 21 00 49 00 4e |beep..89| !~!.I.N|
|00000420| 00 4c 00 32 00 47 00 53 | 00 42 00 0a 39 32 20 57 |.L.2.G.S|.B..92 W|
|00000430| 41 49 54 20 2e 31 00 06 | 39 33 20 21 7e 21 00 8b |AIT .1..|93 !~!..|
|00000440| 39 34 20 21 20 74 75 72 | 6e 20 6f 6e 20 69 6d 61 |94 ! tur|n on ima|
|00000450| 67 65 73 20 61 74 20 28 | 78 2c 79 29 20 63 6f 6f |ges at (|x,y) coo|
|00000460| 72 64 69 6e 61 74 65 73 | 2e 20 20 74 68 65 20 74 |rdinates|.  the t|
|00000470| 68 69 72 64 20 70 61 72 | 61 6d 65 74 65 72 20 69 |hird par|ameter i|
|00000480| 73 20 74 68 65 20 72 61 | 73 74 65 72 20 6f 70 65 |s the ra|ster ope|
|00000490| 72 61 74 69 6f 6e 2e 20 | 20 53 65 65 20 43 2b 2b |ration. | See C++|
|000004a0| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 6f | documen|tation o|
|000004b0| 6e 20 42 69 74 42 6c 74 | 20 66 75 6e 63 74 69 6f |n BitBlt| functio|
|000004c0| 6e 73 20 66 6f 72 20 69 | 6e 66 6f 00 00 1b 39 35 |ns for i|nfo...95|
|000004d0| 20 53 68 6f 77 28 28 49 | 6d 61 67 65 31 29 2c 28 | Show((I|mage1),(|
|000004e0| 58 29 2c 28 59 29 2c 30 | 29 00 00 1b 39 36 20 53 |X),(Y),0|)...96 S|
|000004f0| 68 6f 77 28 28 49 6d 61 | 67 65 32 29 2c 32 35 30 |how((Ima|ge2),250|
|00000500| 2c 32 30 30 2c 30 29 00 | 00 1a 39 37 20 53 68 6f |,200,0).|..97 Sho|
|00000510| 77 28 28 49 6d 61 67 65 | 33 29 2c 34 30 30 2c 31 |w((Image|3),400,1|
|00000520| 30 2c 30 29 00 06 39 38 | 20 21 7e 21 00 82 39 39 |0,0)..98| !~!..99|
|00000530| 20 21 20 63 72 65 61 74 | 65 20 61 20 72 65 67 69 | ! creat|e a regi|
|00000540| 6f 6e 20 74 6f 20 64 65 | 74 65 63 74 20 6c 65 66 |on to de|tect lef|
|00000550| 74 20 6d 6f 75 73 65 20 | 63 6c 69 63 6b 73 2e 20 |t mouse |clicks. |
|00000560| 20 57 68 65 6e 20 74 68 | 65 20 72 65 67 69 6f 6e | When th|e region|
|00000570| 20 69 73 20 63 6c 69 63 | 6b 65 64 20 73 65 6e 64 | is clic|ked send|
|00000580| 20 73 69 67 6e 61 6c 20 | 31 2e 20 20 74 68 69 72 | signal |1.  thir|
|00000590| 64 20 70 61 72 61 6d 65 | 74 65 72 20 69 73 20 64 |d parame|ter is d|
|000005a0| 6f 20 6e 6f 74 20 61 6c | 6c 6f 77 20 64 72 61 67 |o not al|low drag|
|000005b0| 00 1e 31 30 30 20 43 72 | 65 61 74 65 72 65 67 69 |..100 Cr|eateregi|
|000005c0| 6f 6e 28 28 49 6d 61 67 | 65 33 29 2c 31 2c 30 29 |on((Imag|e3),1,0)|
|000005d0| 00 1b 31 30 31 20 53 68 | 6f 77 28 28 49 6d 61 67 |..101 Sh|ow((Imag|
|000005e0| 65 34 29 2c 31 30 2c 31 | 35 30 2c 30 29 00 00 07 |e4),10,1|50,0)...|
|000005f0| 31 30 32 20 21 7e 21 00 | 00 8e 31 30 33 20 21 20 |102 !~!.|..103 ! |
|00000600| 63 72 65 61 74 65 20 61 | 20 72 65 67 69 6f 6e 20 |create a| region |
|00000610| 74 6f 20 64 65 74 65 63 | 74 20 6c 65 66 74 20 6d |to detec|t left m|
|00000620| 6f 75 73 65 20 63 6c 69 | 63 6b 73 2e 20 20 57 68 |ouse cli|cks.  Wh|
|00000630| 65 6e 20 74 68 65 20 72 | 65 67 69 6f 6e 20 69 73 |en the r|egion is|
|00000640| 20 63 6c 69 63 6b 65 64 | 20 73 65 6e 64 20 73 69 | clicked| send si|
|00000650| 67 6e 61 6c 20 32 2e 20 | 20 74 68 69 72 64 20 70 |gnal 2. | third p|
|00000660| 61 72 61 6d 65 74 65 72 | 20 69 73 20 61 6c 6c 6f |arameter| is allo|
|00000670| 77 20 64 72 61 67 20 77 | 69 74 68 20 72 69 67 68 |w drag w|ith righ|
|00000680| 74 20 62 75 74 74 6f 6e | 00 1e 31 30 34 20 43 72 |t button|..104 Cr|
|00000690| 65 61 74 65 72 65 67 69 | 6f 6e 28 28 49 6d 61 67 |eateregi|on((Imag|
|000006a0| 65 34 29 2c 32 2c 31 29 | 00 08 31 30 35 20 4c 4f |e4),2,1)|..105 LO|
|000006b0| 4f 50 00 07 31 30 36 20 | 21 7e 21 00 00 0a 31 30 |OP..106 |!~!...10|
|000006c0| 37 20 44 49 53 50 20 5a | 00 09 31 30 38 20 5a 3d |7 DISP Z|..108 Z=|
|000006d0| 5a 2b 31 00 00 15 31 30 | 39 20 21 7e 21 00 31 00 |Z+1...10|9 !~!.1.|
|000006e0| 00 00 69 00 6e 00 28 00 | 6d 00 61 67 00 12 31 31 |..i.n.(.|m.ag..11|
|000006f0| 30 20 49 46 20 28 49 3d | 31 33 29 20 54 48 45 4e |0 IF (I=|13) THEN|
|00000700| 00 2a 31 31 31 20 43 41 | 4c 4c 20 4e 6f 73 68 6f |.*111 CA|LL Nosho|
|00000710| 77 28 28 49 6d 61 67 65 | 31 29 29 20 21 20 74 75 |w((Image|1)) ! tu|
|00000720| 72 6e 20 6f 66 66 20 69 | 6d 61 67 65 00 07 31 31 |rn off i|mage..11|
|00000730| 32 20 49 3d 30 00 00 0a | 31 31 33 20 45 4e 44 20 |2 I=0...|113 END |
|00000740| 49 46 00 15 31 31 34 20 | 21 7e 21 00 49 00 00 00 |IF..114 |!~!.I...|
|00000750| 68 00 77 00 28 00 6d 00 | 67 65 00 12 31 31 35 20 |h.w.(.m.|ge..115 |
|00000760| 49 46 20 28 49 3d 31 34 | 29 20 54 48 45 4e 00 39 |IF (I=14|) THEN.9|
|00000770| 31 31 36 20 43 41 4c 4c | 20 53 68 6f 77 28 28 49 |116 CALL| Show((I|
|00000780| 6d 61 67 65 31 29 2c 28 | 58 29 2c 28 59 29 2c 30 |mage1),(|X),(Y),0|
|00000790| 29 20 20 20 20 21 20 74 | 75 72 6e 20 69 6d 61 67 |)    ! t|urn imag|
|000007a0| 65 20 62 61 63 6b 20 6f | 6e 00 00 07 31 31 37 20 |e back o|n...117 |
|000007b0| 49 3d 30 00 00 0a 31 31 | 38 20 45 4e 44 20 49 46 |I=0...11|8 END IF|
|000007c0| 00 15 31 31 39 20 21 7e | 21 00 49 00 00 00 77 00 |..119 !~|!.I...w.|
|000007d0| 28 00 6d 00 67 00 31 29 | 00 15 31 32 30 20 21 7e |(.m.g.1)|..120 !~|
|000007e0| 21 00 49 00 00 00 77 00 | 28 00 6d 00 67 00 31 29 |!.I...w.|(.m.g.1)|
|000007f0| 00 15 31 32 31 20 21 7e | 21 00 49 00 00 00 77 00 |..121 !~|!.I...w.|
|00000800| 28 00 6d 00 67 00 31 29 | 00 0c 31 32 32 20 45 4e |(.m.g.1)|..122 EN|
|00000810| 44 20 4c 4f 4f 50 00 08 | 31 32 33 20 53 54 4f 50 |D LOOP..|123 STOP|
|00000820| 00 10 31 32 34 20 20 45 | 78 69 74 70 72 6f 67 3a |..124  E|xitprog:|
|00000830| 20 21 00 50 31 32 35 20 | 20 53 68 75 74 64 6f 77 | !.P125 | Shutdow|
|00000840| 6e 20 20 20 20 20 20 20 | 20 21 20 6d 75 73 74 20 |n       | ! must |
|00000850| 63 61 6c 6c 20 73 68 75 | 74 64 6f 77 6e 20 62 65 |call shu|tdown be|
|00000860| 66 6f 72 65 20 75 6e 6c | 6f 61 64 69 6e 67 20 44 |fore unl|oading D|
|00000870| 4c 4c 20 74 6f 20 61 76 | 6f 69 64 20 63 72 61 73 |LL to av|oid cras|
|00000880| 68 69 6e 67 00 0c 31 32 | 36 20 20 57 41 49 54 20 |hing..12|6  WAIT |
|00000890| 2e 31 00 19 31 32 37 20 | 44 4c 4c 20 55 4e 4c 4f |.1..127 |DLL UNLO|
|000008a0| 41 44 20 22 48 54 42 49 | 6d 61 67 65 22 00 00 08 |AD "HTBI|mage"...|
|000008b0| 31 32 38 20 53 54 4f 50 | 00 12 31 32 39 20 21 7e |128 STOP|..129 !~|
|000008c0| 21 00 00 00 4c 00 41 00 | 00 22 00 54 00 10 31 33 |!...L.A.|.".T..13|
|000008d0| 30 20 20 50 6c 61 79 32 | 62 65 65 70 3a 21 00 08 |0  Play2|beep:!..|
|000008e0| 31 33 31 20 42 45 45 50 | 00 0b 31 33 32 20 57 41 |131 BEEP|..132 WA|
|000008f0| 49 54 20 2e 31 00 00 12 | 31 33 33 20 21 7e 21 00 |IT .1...|133 !~!.|
|00000900| 00 2e 00 00 00 70 00 21 | 00 54 00 08 31 33 34 20 |.....p.!|.T..134 |
|00000910| 42 45 45 50 00 0a 31 33 | 35 20 52 45 54 55 52 4e |BEEP..13|5 RETURN|
|00000920| 00 0d 31 33 36 20 21 7e | 21 00 52 00 00 00 00 70 |..136 !~|!.R....p|
|00000930| 00 07 31 33 37 20 45 4e | 44 00 00 0d 31 33 38 20 |..137 EN|D...138 |
|00000940| 21 7e 21 00 52 00 00 00 | 00 70 00 0d 31 33 39 20 |!~!.R...|.p..139 |
|00000950| 21 7e 21 00 52 00 00 00 | 00 70 ff ff             |!~!.R...|.p..    |
+--------+-------------------------+-------------------------+--------+--------+